Public Sub MyConnection()
If Cn.State = 1 Then Cn.Close
Cn.Open "Provider=SQLOLEDB.1;Integrated Security=SSPI;Persist Security Info=False;Initial Catalog=VPMSDialog;Data Source=eg;Application Name=vpms Control Rome"
Rs.CursorLocation = adUseClient
If Rs.State = 1 Then Rs.Close
Rs.Open "SELECT * FROM VpmsDialog", Cn, adOpenKeyset, adLockOptimistic
Set frm3.MSFGrid1.DataSource = Rs
End Sub
